–€€@L|}ˬð6­…C­…D­¬® l0¬±C)HÈCð±C¨ WhL/©ÀÐh ¨`¥Cm…C¥Di…D` Œ ©R @©W €Œ©1 Œ©ÿ© €Êð©  Œ YäÎÿ0¢@©RÍð ©!Í𢀎L¢®­`ª ¾ Ë ¦ …D­ Ö­ …C­ …D­  ¢Ž  ° ©)1ð6 ©‘C莩S Sä ­ê) Ј˜® ¥C)¥D1 pˆð pʲ¬ ¢©ˆ˜˜0 ¥C9¥DI pèàÐâ¥Cç¥DèL~¥Ci€…C¥Di…D` ª ¾ Ë ¦ …D­ Ö­ …C­ …D­  ¢Ž  ° ©)1ð6 ©‘C莩S Sä ­ê) Ј˜® ¥C)¥D1 pˆð pʲ¬ ¢©ˆ}˜˜0 ¥C9¥DI pèàÐâ¥Cç¥DèL~¥Ci€…C¥Di…D` ©™ˆÐú ¹ð ÉDðÈÈÈÀÐð©D™©Ë™©™` d ž½J‚)ðL­ !½‚}ÉðÉðDÉ ð É ðL¿(°(° ¬ ® LðL»(°ú¬¹)ð ¬ ¿ Ž½‹L| L·(° S ¬LH ­0p n­­ ¿¬¢ © ™È}Êù® ¬™½‹™©C™©™™¢½YÉ?ð™Èèà ð® q • â©€… ›ÐL L𠽩…­ ©‡` • ¬¹)„¹}‹¹Œ `½A…! d¬¹Éß°©…"½‚)ð-¼‡˜Ý† ”°"   °±$þ‡­‘G©@……LðL¿Lô½…&0©¥")ð ® °¥$…G¥% }…H­0 3°S8`­ø‡¨±G ȱG ȱG  ”¬ø­ ‘GÈ­ ‘GÈ­ ‘G¥G}†…G¥Hi…H8¥(ý†…(¥)éê…) ® ¡¥G…$¥H…%¼ˆˆ Ð`­þÉÐ¥(0ó }¥)Ðï8` d½‚)ðL¹ ½‡݆ & ðLô¨±GȘ‡¼‹Ð¼ŒР݆©LÓLð d ž !° ¬ LðL» d½‚)ðN>…Q « € ½H½H½‚) }ð ® û½‹½ŽŒ ³¬hy™hy™©B™ q •©‚Lê>…ó øLm ½JJ ›  › Ln© *ˆÐù` d½BÉþð%É' }°8é  ¨¹Å H¹Æ H` Ø 1 Ò { ‚ ¹ L¿L žŒ  !L» ¬ ›Ð ¬  ´ ›Ð¬¹H¹¨h S¢¬½YÉ?ð™Èèà ð® q ž 1¸L }ê ž !°? S ›Ð  q 1í •Lê ¿¬ ¬ ©€™ ® Ll ° ÅLg  ©ÿ‘E`L»© Щ ž !L»¬¹)ß ™ q 1êLê¬}¹) Ð`LÁ½…0A½M݊нL݉ð½…ð ø©…½MŒ½L‹ ° ½N݆ðLÇLðL¹½‡N½‰L½ŠMLð¥H¥G©!©@}®þ©1¬F †ÀР±GÉÿÐȱGÉÿðLµLÓ©¨‘EÈû ©‘EȩÑEÈÈ‘E©ˆ‘EÈÈ‘E  ©ÿ‘EÈÀdÐù©  ‘E 7©‘EÈ©‘E •©¨™Èú© qÎø} Lê© !,°0,0S¬±GîɛРÀ°©€Lð© 1° !Lð ‹ ±EHˆ±E¨h W ¢ ½‘GÈÊ÷ g©LêLôSROTCES EERF  ©} ‘G®½) ð©*‘GÈ© ‘GȽ‘GèÈÀ õ© ‘GÈŒ®¼½¢d q¢ q˜  ©›‘G Œ`Ž¢ÿ Œ è8­ í¨­ é°êŠ 0¬‘Gî­ ¬ `½D}…C½E…D ±Cˆ0XÉ:Ð÷È¢ © YÊú¢Ž ȱCÉ*Ð ©? ùð0.É.Ð , 0%¢n ÞÉ?ðÉAÉ[ àðÉ0 É:° Lî`LÅà ðà `, 0`Y}è`©ÿ©pî­iî©ÍðH n©¨¹ð0)ÐÕ¢½YÉ?ðÙÐÇèÈà Ðî­­­­¹0¢8®`½…0 } … ø0$L ½‡¬û‘G½Œ¬ø‘GȽ‹‘G ø­©‚­LÓþÐþ ©‹Œ‡­ø†`8½Š¼‰L÷½‹‰½ŒŠ`½…ðL”½}‹ŒÐ8`  ù05¬ø±G)üÝÐ,±G)ŒȱG‹ȱGH½„Ðh0©})Hh†©‡` å½BÉ!ð Ç8`8©©­ii¨©iL« ±Eð`} ©‘E8¥F¥E h©(®þ l0`ɃðLåLÉ ‹L•½‰Šð8© ^Š~‰jˆÐö jˆÐü¨©8jˆüH½‰i ¨hE‘E ±Ei‘EȱEi‘E`  ÈÀd°T±Eð÷Œ} H8 ±Eé‘EȱEé‘EÈ©ÿ‘Eh ÿÈ üŒ Jˆü¬ ‘E8­ é  Œ  . ÈÀ÷m ‹­ iŒ`LË©Ÿ…IŽºè莮¤!Œˆ¹)…E¹1…F¹ðRþ¨¹ø}ø¹ûû¼ˆˆ1 ¹ðÈÀöLÍ­þJ°ÈÀ°ò¹Ð舩€™©€™˜ˆþˆ¹9…G¹I…H`Lϼˆðˆ©ˆ™­þJ°J™`H¥G¥Hh®þ l`¼‰}½Š S gLð©©©©  î ¢8 r­i€­i­ ÍÐÞ`Œ­þ¬øŒд­…C­…D ±C‘GÈÌøö˜‡ WÍ  }Ð¥CÍ Ð ”Lq`  ¹X٨ЈÐõ`DOS SYS æIæIæIæIæIæIæIæIæIæIæIæIæIæI¥I®C®š®¨­`­0é® Þ©Ðß©ˆ0Û}}ýÿ÷} HE €€ÿþýüûúùø÷ü||ü|ü|ü|DOS DOSDOS SYS €}}€}}CDOS SYS} 0 `©B©›D©ELVäŒü ©!B Û} `LV©U©Q… ©… ©š © ©] ©  à¥Ð©ÀT©U J©À ]L!­T©ž©Ÿ… ©… ©# © ©æ ©  à¥Ð© T©U “©À } ¦Lª­ð­žð ? . “ tä©`…ðöÿàá©€Ÿ©Gà©á¢©B©J Vä©Ð~¢©ôD©E©H©I ©B Vä0d©ÿÍôÐVÍõ!}ÐQ¢© D©E©H©I VäFÀˆÐ9 ª,ž0 ©,ŸŸ0 s0hhL¸­Ð ©¢ ¾L©ª` ª©Ð÷˜H ªh¨Ð DH­¡E¨hÈШÈЭ"}¢ ­£¡©¢D©E©L­¢8í H­£í¡I­¡ ú°­£ ú° ­ 0©€ ŸŸþHÐþI,Ÿ0­ 0Î  9© .¢©Gâ©ã VäLO#},ž0 L÷ÉÉ4*IJ`lâlàD1:AUTORUN.SYS›NEED MEM.SAV TO LOAD THIS FILE.›D1:MEM.SAV› ª©J y08© B©|D©E©ŠH©I$} Vä0 ª0 `©B©;D©ELV䌚 ª©!B y `@¢ŽžŽŸʆ v s©…ð? F0Ξ05©:¢ ¾©[¢ ¾©B©D©E©H©I%} Vä­ÉYÐ8©…¢ © B Vä¥ œ¥ ©@… ©… ©/¢D©E ŒžˆŒ ¤`E:›D1:DUP.SYS›ERROR-SAVING USER MEMORY ON DISK›TYPE Y TO &}STILL RUN DOS› ´©B©;D©E© J Vä ´(`©ð 9¢ Vä©ðî ­âä­ãå©âªà© ï©ÿðî¾­àä­áå©àªà© ï ª­ž-'}”ðî”LLu áèŽâ㢩àD©E©H©ILVä 9© .lú¿ 9© .l­œ… ­… `­žÐ` s©…ð$©B Vä©B©ŠH©(}I©|D©E Vä© BLVä n䢩B©,D©E© J V䢎Ž ©* \ä­*Ðû`© ¢B Vä¢ © BLVäDŽE©€H¢ŽI© B­ÐLVäL)}ª1ÿÿ 3u ˜Hæ2Ðæ3¥2Å4¥3å5¥;Ð ¥1 ÒÆ;Ð ¥ …Òh¨h@ ±2 Òe1i…1L˜H­Ò Ò0 Œ„0) РŽ„0¥8ð­ ÒÅ1ð „0©ÿ…9h¨h@­ Ò ‘2e*}1i…1æ2Ðæ3¥2Å4¥3å5Þ¥<ð©…<ðÐÆ8ÐÐ}M&;INST¤K¶ÉTENDENCÙPRESSURÅWINÄ€€;@,6-@n+,}@%@(($(9( ÷åáôèåò>(T( æïòåãáóôY(n( ðòïçòáí‚-@A-} ‚;+@%@(($()(;( ÂÙ<($(ÄÒ® ÓÔÅÖÅΠ® ÎÅ×ÍÁÎ8‚-@A< ‚.}: +(((:(Do you want instructions (Y/N)(€(€7@<@,4YA€ n (} ((2(What is /}the pressure tendency?5(8(F( 1) ÒÉÓÉÎÇn(# (up >0.05 inches in past 12 hours)>(( 2) ÓÔÅÁÄÙ>(% (<0.05 inch chang0}e in past 12 hours)G((3) ÆÁÌÌÉÎÇ ÓÌÏ×ÌÙG(& (0.05-0.2 inch drop in past 12 hours)(F((4) ÆÁÌÌÉÎÇ ÒÁÐÉÄÌÙF($ 1}(down >0.2 inches in past 12 hours)2+((Indicate by number' @P+ƒ<ƒ&P:ƒ, @€F''ƒA2}A A0A@PF($(ILLEGAL ENTRY--TRY AGAIN!8‚-@A< ‚F @èBarometer Rising›ò AP3}„AAALQG…ApApAp Ap Ap Ap ApApQ Au°QG…Ap4}Ap Ap@ApPAp Ap ApApQ AuQG…ApAp ApAp Ap Ap 5}Ap Ap`Q AuÐBarometer Steady›Ú APø„A!A"A!4 Aqp Au˜QG…A6}qpAqpAqpAqpAqpAqpAp Ap Q Au¸ Barometer Falling Slowly›Â APà „A17}A2A3 QG…Aq Aq€AqAqAqAqAq Aq Q Au€ QG…ArAq8}AqArArAr ApPAq Q Auä QG…ArAr€ArAr`Aq`ApPAsAs9}Q Auî Au Barometer Falling Rapidly›ª APÈ„AAABACQG…AppApp:}Ap€ApAqAqAqAq Q AuhQG…Aq0Aq@Aq@AqPAq@Aq0AqAq`;}Q AuÌQG…Ar0Ar@Ar@ArPAqAr`Aq`ArpQ AuˆPressure Subroutine›’ (<}} (((œ.(( What is the barometric pressure?+(.(¦ (1) Âåìï÷ ³°®°° éîãèåó (°# (2) ³°®°° ôï ³°®²° éîãèåó#(=}º#(3) Áâïöå ³°®²° éîãèåó (#(Ä((Indicate by number$ AP`(„Î++„"@)„"@)„"@AUØF(>}$(ILLEGAL ENTRY--TRY AGAIN!8‚-@A< ‚F AP|Wind Direction Subroutine›† (} ((()#(What ?}is the wind direction?&()(š>(1) ÎÏÒÔÈ!( 2) ÎÏÒÔÈÅÁÓÔ-(3) ÅÁÓÔ>( 4) ÓÏÕÔÈÅÁÓÔ¤D(5) ÓÏÕÔÈ!( 6) ÓÏÕÔÈ×ÅÓÔ-@}(7) ×ÅÓÔ>( 8) ÎÏÒÔÈ×ÅÓÔA(D(®((Indicate by number$ AUP(…¸…&P:…,AVÂ!!…!*… @ A}A`àF($(ILLEGAL ENTRY--TRY AGAIN!8‚-@A< ‚F AUp Graphics Set-up Subroutine›zg+@%B}@((3( THE FORECASTI(VALID 24 HOURS]( FROM NOW IS:b(g(„$XForecast List›b(C}ÆÁÉÒ ÁÎÄ ÃÏÏÌÅÒ$l(fair$v(ÆÁÉÒ ÁÎÄ ÃÏÌÄÅÒ$€*(ÆÁÉÒ'(ÃÏÌÄÅÒ ÉΠ×ÉÎÔÅÒ*$Š(FAIR AND}D WARMER$”(ÆÁÉÒ¬ ÍÕÃÈ ÃÏÌÄÅÒ$žQ( óåöåòå çáìå¬2(èåáöù òáéî ïò óîï÷¬N(éî ÷éîôåò¬ ÃÏÌÄ ×ÁÖÅQ$¨E}/( óåöåòå óôïòí¬,( òáéî ïò óîï÷/$²*( óåöåòå óôïòí'(éííéîåîô*$¼.(óôïòíù¬+(ÉΠ×ÉÎÔÅÒ¬ ÃF}ÏÌÄÅÒ.$Æ(rain$Ð( unsettled$Ú(ÒÁÉΠÁÎÄ ÃÏÌÄÅÒ$ä*(increasing wind,'(rain*$î8G}(increasing wind,'(rain5(WARMER8$ø*( INCREASING'( CLOUDINESS*$( no change$ (H} ÒÁÉά ÃÏÏÌÅÒ$(unsettled, cloudy$ /( unsettled,,(probably cloudy/$*(RAIN AND WARMER$I}4(unsettled, WARMER$>7(cloudy&( rain probable4(WARMER7$H*(òáéî'(éîãòåáóéîç ÷éîäóJ}*$R(cloudy and rain$\(CLOUDY AND WARMER$f=( unsettled,$(òáéî éæ:(÷éîäó ãïîôéîõå=$pK}4(SUMMER:LIGHT WINDS1( ÷éîôåòº òáéî4$z1(summer:unsettled.( ÷éîôåòºòáéî1$„1(RISING TEMPERATL}URES.(and fair1$L"F:B2y,"@" @V Au@Instructions›JU (}0("This program forecasts M}the weatherU( for the 24 hour period beginningT%%(24 hours after forecast time.^j)(!User supplies the following dataN}:,(J( 1) Pressure TendencyM(j( 2) Present Pressureh/()( 3) Present Wind Direction,(/(ri)(!To bO}egin, press ÓÔÁÒÔ. To re-runQ(#the program after completion, pressi(ÓÔÁÒÔ. To stop the|5#(program at any time, preP}ss 5( ÓÙÓÔÅÍ ÒÅÓÅÔ.† Au€ D:WEATHER.BAS€;@,6-@n+8UVŽ M¤S¤P¤ÉÁÏCÓDÌÂÃHIGÈR×AÁIÉAÂPÍØÙPÐLO×ÚLAÐOLÄNEÕPOYNTÓDISÔCARÓFLAÇY²DIÒÎTÔÔÄX²LDIÒÌÊNE×€€€R} S} !"T}#$%&dF&€;@2,;@,‚;@,F@@K:–** NEW CHARACU}TER SET **››$$** ML routine for moving 1K **› +ƒ-@@2"„'6€7ƒ,.>:„,+ ƒªii104,104,133,204,104,133,203,10V}4,133,206,104,133,205,162,4,160,0,177,203,145,205,136,208,249,230,204›¯230,206,202,208,240,96›±//** Lower RAMTOP and moW}ve character set **›´[ AF:A,&@$+…E6†-+F:A,%@,$AV[6„-?:C:€,<BsD<†,¾)ƒ-†%@X}†%@G"„%ƒ„) ƒÃUU0,24,60,126,126,60,24,0,0,189,219,231,231,219,189,0,255,24,255,24,255,24,255,24›ÈAA170,85,1Y}70,85,170,85,170,85,219,109,182,219,109,182,219,182›Ò„ +@/6‡-F:A`,%AV$F:Aa,U6„-F:‡%@,%AV$FZ}:‡%@,c6„-„%@"t6ˆ-P:„'AV,„6‰-„&ˆ$AVÜ_‡%@‰@ˆ‰+‡%@ˆ7@‰ˆK‡%@[}@_‡%@@æ0ƒ-@@,‡%ƒ%@!F:‡%ƒ,0 ƒðo#ƒ-‡%@‡%@5@/ƒAC\}ƒ%@AFWƒ%@@[ ƒo‡%@5@qõ{AV†'AV)AA;-@U(]}@ INITIALIZINGo0@@{6Š-ú** DATA FOR ROADWAY **›ÿ$$6‹-+F:A,&@,$AV^}+6Œ-@6-@+ƒ-‹‹%A/ 6Œ-Œ%Œ!@/6-6@P$H:,&Œ @&6-@P$H:_},6Ž-Œ%AA  ƒŽ ƒ3‹@%%AA3‹%AA%AA,** PAGE SIX POKES **›6/ #A!`}ƒ-A6AH%"„+ƒ„/ ƒ:** Change VBI vector **›;&&104,160,17,162,6,169,7,76,92,228›<&&** Init. data for VBIa} routine **›=1,1,0,0,0,0,0›>88** VERT BLANK ROUTINE ** Determine scroll value **›?''206,11,6,208,94,173,10,6,141,11,6b}›@;;173,12,6,206,16,6,74,176,250,173,16,6,141,5,212,16,71›A** Move lines down **›B&&169,16,141,16,6,173,48,2,133,203›c}Ebb56,233,3,133,205,173,49,2,133,204,133,206,160,37,177,205,145,203,136,177,205,145,203,136,136›J192,10,208,241›K**d} Add a new line **›LII230,207,208,2,230,208,162,0,161,207,201,255,208,15,173,14,6,133,207›M33173,15,6,133,208,161,207,238e},13,6,136,145,203›OXX173,0,211,72,41,8,208,2,230,209,104,41,4,208,2,198,209,165,209,141,0,208,76,98,228›R** Screen roadf}way data **›Tee4,5,5,5,5,67,130,1,1,130,67,4,4,4,4,5,5,5,5,67,130,1,1,130,67,4,4,4,4,5,5,5,5,67,130,1,1,130,67›U4,4,4,4g},5,5›V""** Remove our VBI routine **›W((104,160,98,162,228,169,7,76,92,228›X@@104,104,104,168,162,11,189,232,6,153,0,6,h}136,202,16,246,96›YOAP)AQ‹'AV;AOA‹'AV^** ROADWAY WIDTH **›rki}'ƒ-A&@A“%@3ƒ7 ƒ[ƒ-A&@A%@gƒA"k ƒ** PM GRAPHICS *j}*›š|6„-F:A,&@&BBy„46-AV$„FAY@FXB2w@d6-A pB2H|A k}Ÿ #A0AA¤sƒ-%A%Ah'ƒ+ ƒ=A@VI6‘-@eƒ-%A%‘%Al}"%‘i"„oƒ„s ƒ®,,24,90,126,90,24,60,165,165,231,189,153›¸-ƒ-@@"„)6‚7ƒ<ƒ,.>:„,- ƒÂ106,96,85m},76,63,51,40,22›ÌKƒ-AhAy"„!ƒ„% ƒK0,0,0,0,90,126,90,24,60,165,231,189›ÖJ6’-%A@"6Š-P:’'AV,n}26“-’&Š$AV>AB“JACŠà7-7(@ êL-@L(@o}(PRESS FIRE BUTTON WHEN READY TO START ì T:,"@A’ï6„-?:A6,ô›öi-@5(p}@ÓÃÏÒÅ G-@i(@ speed LAPø$$** RESET CLOCK - INIT. VAR. **›ùŸ6”-q}@”'@”3@ ”?6•-K6–-W6—-c6˜-o6™-B"{6š-@‡6›-r}“6œ-@@Ÿ6-@û** SPEED BYTES STRING **›þM #A !ƒ-@@%"„167ƒ,.>:„,5 ƒA6ž-@M6Ÿs}-@00,1,3,7,15,31,63,127› ))** CK TRIGGER - CLEAR COLL. REG. **› 86 -F:A2,$B2x8›"t}A2R6œ-œ%ž'@$6¡-?:A2<œ,0œ!A0<6œ-@@H6›-R A@a16-&@$+¢!AP,%@u}$+¢ @,A6£-$•'@I6¢-¢%£U£!@a6£-@B2I¢ A@’•$H:,!@&6œ-@@]v}A+H:,$@%@,$@%@i6›-@u6¢-A B2I¢’6¡-?:A2<œ,5 "@6žw}-ž&@)ž @56ž-@&5 "@6ž-ž%@)ž!@56ž-@0AH@:7ž<ž,,:"6¤-F:AIx},¤!•" A <š"A=** COLLISION DETECTION **›?5+F:B2R,"@)F:B2`,5 Ay}A%%** PRINT SPEED - MOTOR SOUND **›D.-@.(@@ $ž H))2@:‚7ž<ž,,@@%žz}N A%X** FINISH ROUTINE **›b4%246„-?:A",l>->(@{}SCORE = P:˜, v ˜!Š6Š-˜€A-@A(@ ÈÉÇÈ ÓÃÏÒÅ = P:Š, Š1-…@1|}(@Again? Press Trigger T:,"AU” T:,"@A`ž Aè ** COLLISI}}ON SUBROUTINE **›òKƒ-@G2ƒ@P%@ $ƒ@$ƒ%@@K ƒüƒ-ž@6@q 6ž-~}ƒAH@:7ž<ž,,9Až$@%@UAž$@%@i¥-@@m ¥q ƒ6š-š&@}Kƒ-’%œ&@’%œ#ƒ' ƒ36›-?6¢-A K6œ-@@B^A@V'A;ƒ-€}@W2ƒ[ ƒ^$Ð** NEW LAP SUBROUTINE **›Õ00** Ck. clock for lap time - calc. speed **›ÚT 6}•-¤F6—-F:@ ,%AV$F:@,%AV$AV$F:@,T6˜-˜%™'+—&–,ä1-@+(@P:˜, 16–‚}-¦é"-@"(@•î$€ D:RACER.BASYNTÓDISÔCARÓFLAÇY²DIÒÎTÔÔÄX²LDIÒÌÊNE×€€€>CD¤Ù"ï"Ú×DÓOÐÒT±T²T³CÓAÔÐÁÂÃNÐSÐMÐAÐÅÇNÂMÚLÖSÃNÌÄÆÈAÉNÁTÉÌÍÎÏÑÉÊØP±SÔEÇP²Ë „}  …} !"#$ †}%&'()*+ {6€-6-@'6‚-B@d36ƒ-B2y?6„-B7pK6… ‡}-A@W6†-ABc6‡-ADo6ˆ-Bv{6‰-B2‡6Š-A66‹-A% @Y/ @Y9 @YE6‹-@p ˆ}O @YU6‹-€_ @Yk6‹-@”u @Y{6Œ-€‡6-@#5/6‹-@ @Y!6Œ-Œ%/Œ @S6?6‹-@e ‰} @Y6‹-€) @Y56‹-@? @Y7m6‹-AY‹€!6‹-A`'‹€36‹-Aa?6Œ-@E‹ŒQ6‹- Š}AY]6Œ-@Fc‹Œm @`; Š‹6Š-Š%$<{6‹-AV6Œ-@F!‹Œ-6‹-A96Œ-@?‹ŒK6‹-A ‹}W6Œ-A4]‹Œi6‹-Au6Œ-A({‹ŒZU6‹-A6Œ-@r!‹Œ-6‹-At56‹-‹%‚A6Œ-@I6Œ-Œ% Œ}‹U6-A\ ‹6‹-‹%‹ Œ@’_O 6Ž-6-@%!6-@w-6‘-A@96’-@HE6“-AO Ad }! A AP! An& 6‹-F:ƒ,6Œ-@&‹"ŒAPp6Œ-@‹"ŒA0r6Œ-@‹"ŒA@ Ž}s A‚Ž"A2ƒ 6Ž- A„6Ž-@ AŒ16‹-@6-%‹#6Œ-@&1 ŒA }Ž6-@ A–36”-@ 6•-!6–-@'6—-€36˜-@€´36‹-Aa6Œ-Ag'6-At36™-A( }¶; 6’-‹%‚6š-F:’,6“-%‚%6›-F:“,-6š-š%™;š ›A–·› šA’¸! 6‹-‹%6-%!‹ ŒA‚À36‹-Aa ‘}6Œ-Ag'6-At36™-A(Á* 6’-‹%‚6š-F:’,6’-%‚$6š-š%™*’šÂ! 6‹-‹%6-%!‹ ŒA“Ä'6‹-Aa ’}6Œ-Ag'6-@€Å' 6Š-‹%‚Š6‹-‹%'‹ ŒA—Æ)6‹-A€6Œ-Ai#6Œ-Œ%‚)Œ‹È 6‹-‰6Œ-@% “}ÊE6-@‹6‹-‹%)6-@/‹76‹-‹%=‹€E6‹-‹%Ì& 6-F:„,6™-@&™ AÍ/ 6-%‹ ”}6‹-‹%!6œ-œ%/œ ŒAú A6Œ-@6-Œ6‹-& 6Œ-F:„,6-A%& ŒAb* 6Œ-Œ% •}Œ6Œ-Œ%‚6-F:Œ,*"€Ae Ab +6’-A9Œ’6‹-‹%+‹ ”Ab? 6‹-•6Œ-@ A %6œ-€ –}16Œ-@96’-%Œ?6š-€& 6Œ-F:„,6-A%& ŒA‚* 6Œ-Œ%Œ6Œ-Œ%‚6-F:Œ,*"€A… A‚+6 —}“-AŒ“6š-š%+š ’A‚"Y6ž-@™6‹-@w!‹€+ A5 A ? A0K6‹-A0S6‹-‹%‚Y‹ ˜}€, 6‹-F:‡,€ ‹A0A ‡6‹-@6Œ-œ% A -6‹-%‰36Ÿ-‹A"€A1? 6 -F:‹,6‹-‹%6¡-F:‹,%6‹ ™}-‹%.6¢-F:‹,66‹-‹%?6£-F:‹,2<6‹-B7`6Œ-F:„,‹Œ*6‹-B7a66Œ-A2<‹Œ6S6‹-@ 6Œ-  A '6› š}-%¡/6›-›%‚9 A?6¤- E6¥-¡S‹"A 8% 6š-£%6‹-@%š ‹A"9 6š- A"@ 6š-£&€ šA ›}"A6š-@B* 6“-› A6‹-F:“,*‹"A0C‹"ApE 6£-š ApJ< 6¤- 6¥-¡6š-£6“-› œ}% A.6‹-F:“,<‹"APM‹"ApO 6£-š ApT1 6¤- 6¥-¡6š-£%#6-@1š ABU 6š- }V* 6“-› A6‹-F:“,*‹"AGW‹"ApY 6£-š Ap[% 6£-£%6-@%£ A@\ 6£- ž} A@^ A‹"A@`% 6¤- 6¥-¡6š-£&%€ šATa6š-@b* 6“-› A6‹-F:“,*‹" Ÿ}AWc ACe 6£-£&€ £ARf6£-@ ARr¢"‘Ars A€t 6¢-€| ›¢“‘€  }3 Ÿ¤6Ÿ-Ÿ%Ÿ¥6Ÿ-Ÿ%%Ÿ‹-6Ÿ-Ÿ%3Ÿ£ 6œ-œ%œ A‚ 6œ-€ A† 6‹-€œ"A™‡6Œ- ¡}@œ"ŒA™‰6Œ-@œ"ŒA™Š6Œ-@œ"ŒA™‹ 6‹-$ 6‹-F:†,€ ‹A‘c6 ¢}‹-@†‹!6’-@-6“-@–7 AC6’-@HO6“-AY Ac A’j 6‹-F:„,6Œ-@d" A  £}(6‹-46Œ-@> A F6‹-’%N6‹-‹%ˆV6Œ-ˆ%“b6-@j6-%‹“0 6š-F:‹,Œš6‹-‹%"6Œ-Œ%0‹ A” ¤}$•3 6¦-§6¨-A2 A%6§-¦3©"Ap–Ž"A˜3 6¦-ª6¨-A3 A%6ª-¦3©"Ap™ ¥} Aš 6©-€6’-¦6š-@ ›& 6‹-F:¨,6Œ-@&‹"ŒA œ6Œ-@‹"ŒA"6Œ-@ ‹"Œ ¦}A$ž6Œ-@‹"ŒA&Ÿ6Œ-@‹"ŒA  6Œ-@‹"ŒA"¡6Œ-@‹"ŒA$ §}¢6Œ-@‹"ŒA&£ A¤ 6’-’&š A0¦ 6’-’% A0¨ 6’-’%š A0ª 6’-’& A0 ¨}®^6‹-B7`6Œ-@!‹Œ-6‹-B7a96Œ-A?‹ŒG6¡-’%‚P6‹-F:¡,^‹"€A€°‹"A²6Œ-A9 ©}‹"ŒAP³6Œ-A‹"ŒAp´‹"‘A`¸ A 6—-—%• A€Ì 6©- AÖ% 6-% ª}6‹-@% ‹A€Ø6-@à 6‹-¦%‚‹€6¦-’¡ê$ô) 6‹-‚6Œ-A`6Œ-‹%Œ)6-A9ù 6™- «}F:‹,™"Aú 6‹-‹%‹ ŒAþ9 6•-•%6‹-@6”-”%‹+6‹-@p9” ‹A 6”-‹ž"€A ¬}C 6Œ-ž%ž6Œ-Œ%ž6‹-B7`%‹Œ16‹-B7a=6Œ-AfC‹ŒM 6ž-ž& A@!6‹-@'…‹/6‹-•&;6Œ-@ ­}E A M6—-—%  A P€ —A"  6‹-F:…,€ ‹A% A:# 6–-–& A #€ –A< ®} AXF A P AP#6‹-Ad,6Œ-F:‹,86-@FŒ"Agj 6‹-F:„,6Œ-@d" A (6‹-46Œ- ¯}@> A F6‹-’%N6‹-‹%ˆV6Œ-ˆ%“b6-@j6-%‹l& 6‹-F:„,6Œ-@&Œ ‹A n;6Œ-@ A ! °}6‹-%Œ-6Œ-@’56Œ-Œ%ˆ;Œ‹v& 6‹-F:ƒ,6Œ-@&‹"ŒAž.6‹-Ab6‹-‹%‚ 6Œ-F:‹,.Œ"˜A€  6˜-Œ ±}6–-–% A ¨ 6‹-F:…,€ ‹A©#6‹-@P…‹#Ž"Aƒª6‹-@5…‹«# 6ž-ž& A@#€ ²} žA­ Ap¼=6Œ-A6‹-ˆ%Œ#6Œ-@$+6Œ-Œ%‹16-‚=6’-@ ¾0 6™-F:‹,™6‹-‹%"6-%’0‹ Œ ³}AÀ$ÆI 6‹-¡6Œ-@ A %6’-+6‹-’76Œ-@A A I6š-¡&È"6‹-A6š-š%‹6’-’%‹"$Ð ´}6‹-@– ‹A%Ò6–-@ Õ46‹-A6‹-‹%–#6Œ-A@+6Œ-Œ%‚1Œ‹4$ÚJ 6¡-• A6‹-A '6 µ}‹-‹%‚-‹’96‹-A@A6‹-‹%‚G‹šJ$ä> 6¡-ž A6‹-Ap'6‹-‹%‚-‹’56‹-‹%;‹š>$î*6‹-B7`‹€! ¶}6‹-B7a'‹€*$  6‹-‚6Œ-A`6Œ-Œ%‚! ‹6‹-‹%‹ ŒA%?6Œ-@6-@e'6™-@36’-@ ·} ?6š-@&'6‹-@6‹-‹%’6‹-‹%‚'6“-‹%™'' ‹6‹-‹%6‹-‹%'‹ “A(- 6š-š%6¤-@@6’-’% ¸}¤-š ŒA*- 6«-€6’-A06’-’%‚#’€- Ap4& 6‹-F:„,6Œ-A &Œ ‹A 66 6Œ-‹%‹6’-Œ%‚6‹-F:’ ¹},(6Œ-A)6‹"ŒA08 A > 6 -’@* 6‹-F:„,6Œ-@d" A *6š-%B0 6“- 6’-  A"6‹-F:’, º}0’ ‚A2C%6Œ-A@6Œ-Œ%‚%Œ ’A2D 6‹-F:’,‹"€A@F A2HG  €“€6Œ-«%«#6‹-B7` »})‹Œ56‹-B7aA6Œ-A2G‹ŒR5 6’-  Ap6«-«%'6‹-@˜5« ‹A TK 6œ-€6§-A"!6ª-A8)6 ¼}‹-§%‚/‹76‹-ª%‚=‹€KŽ"AUU ‹WM 6‹-6Œ-@ A +6‹-A036‹-‹%‚?6Œ-AG6Œ-Œ%M‹Œ ½}e$f 6š-6¡-’h* 6’-¡ A6‹-F:’,*’ ‚Aui%6Œ-A@6Œ-Œ%‚%Œ ’Auj6Œ-@e‹"ŒA ¾}yk% 6š-š%6Œ-@%š ŒArl$o6Œ-A)’Œ Auz56-@ 6Œ-@@'6Š-@5š" ¿}A•{6‹-@š"‹A–|6‹-@š"‹A—~ 6¤-¤&6“-“&6’-’&Œ$ 6¥-¥%6“-“%6’-’%Š$ À}€ 6¤-¤%6“-“%6’-’%Œ$ 6¥-¥&6“-“&6’-’&Š$„ 6-€6™-€Œ"€A †! 6-%‹6™-™%!™ ŒA ˆ Á}$Ž 6-€‹ ŒA ! 6‹-‹&Œ6-%!Œ ‹A ‘‹"ŒA ’$¶— A Y¸7 6—-—&6-Af6 Â}-%‚+6“-@€76™-@º" 6Œ-F:,6Œ-Œ%"Œ ™A W»! 6Œ-“Œ6-&! A T½ Œ¿$ç% ÃÈ Ã}Ò ÓÅÔ ›%J6ˆ-Bv#¤-BsDBxP,ˆF:¤,:6ˆ-ˆ%@> ¤J6ˆ-Bv&%9 #A•!¤-@•%"‹5¤%ˆ% Ä}@‹9 ¤'%%%251,223,254,247,253,127,239,191›(%24,60,70,199,126,60,99,99›)%24,60,74,203,126,60,54,54›*%!!24,60,82 Å},211,126,60,102,102›+%!!24,60,98,227,126,60,198,198›,% 0,24,60,153,126,24,126,195›-%24,60,152,126,27,56,236,6›.%!!24,6 Æ}1,25,126,152,60,102,195›/%!!24,60,24,126,153,60,103,192›0%32,64,128,68,58,1,2,4›1%0,0,0,0,0,0,0,0›2%%%251,223,254,247 Ç},253,127,239,191›:% ÍÅÓÓÁÇÅÓ ›<%9 #A•4!¤-@$%"‹5¤%ˆ%A‹9 ¤>%YY225,238,228,242,239,244,239,23 È}8,0,0,0,172,208,0,0,173,208,208,0,0,164,170,162,0,0,0›€D:ANDROTON.BASEÇP²Ë L0100 ARG1L = $CB›0110 ARG1H = $CC›0120 ARG2L = $CD›0130 ARG2H = $CE›0140 RESLO = $D4›0150 RESHI = $D5›0160 *= $0600 ;PÊ}UT ON PAGE 6›0170 CLD ;BINARY MATH!›0180 PLA ;PULL # OF ARGS›0190 PLA ;PULL ARG1 HI›0200 Ë} STA ARG1H ;SAVE IT›0210 PLA ;PULL ARG1 LOW›0220 STA ARG1L ;SAVE IT›0230 PLA ;PULL ARG2 HIÌ}›0240 STA ARG2H ;SAVE IT›0250 PLA ;PULL ARG2 LOW›0260 STA ARG2L ;SAVE IT›0270 LDA ARG1L ;GET ARÍ}G1 LOW›0280 CLC ;CLC FOR ADD,›0290 ADC ARG2L ;ADD TO ARG2 LOW›0300 STA RESLO ;SAVE RESULT LOW›0310 Î} LDA ARG1H ;GET ARG1 HI›0320 ADC ARG2H ;ADD TO ARG2 HI›0330 STA RESHI ;SAVE RESULT!›0340 RTS ;ALL Ï}DONE.›ARG1H ;GET ARG1 HI›0320 ADC ARG2H ;ADD TO ARG2 HI›0330 STA RESHI ;SAVE RESULT!›0340 RTS ;ALL   4(=ØÎVAL±VAL²Á %€-A6Ac"!€% €-(ENTER VALUE1, VÑ}ALUE2' @ -‚ƒ6„-?:A6<‚<ƒ,( „2 @ <hh216,104,104,133,204,104,133,203,104,133,206,104,133,205Ò},165,203,24,101,205,133,212,165,204,101,206›F133,213,96›€ D:BOOTADD.BASAc"!€% €-(ENTER VALUE1, VQ0100 RESLO = $D4›0110 RESHI = $D5›0120 RANDOM = $D20A›0130 *= $0600 ;PUT ANYWHERE›0140 PLA ;PULL # OF ARGSÔ}›0150 LDA RANDOM ;GET RANDOM #›0160 STA RESLO ;PUT IN LOW›0170 LDA RANDOM ;GET RANDOM #›0180 STA RESHI Õ};PUT IN HIGH›0190 RTS ;ALL DONE!›STA RESLO ;PUT IN LOW›0170 LDA RANDOM ;GET RANDOM #›0180 STA RESHI - )¹ÏRAND¤ØÎÁ€ €;@,+-@@"‚'6€7,.>:‚,+ 6ƒ-?:C:×}€,,((ƒ2 @0<22104,173,10,210,133,212,173,10,210,133,213,96›€D:BOOTRAND.BAS‚'6€7,.>:‚,+ 6ƒ-?:C:`FäøSNTAÂOPNTAÂIÏÉSTEÐTKÎPROGRAM 1› AATHIS PROGRAM DISPLAYS Ù} BASIC'S STATEMENT AND OPERATOR TOKENS›))FOR XL'S: SNTAB=42143, OPNTAB=42974›(6€-B!Y(ADRS OF STMT TOKEN TBL›(,6 Ú}-B)y,ADRS OF OPERATOR TOKEN TBL›2] @`-@@P:96‚-@C @p]OUTPT TO PRNTR IF Û} THERE›<J (}@‚--JSO WE CAN GET BOTH ON SCRN›F)6ƒ-€%@)BEGIN AT SNTAB ADRS+2›P! Ü}6„-@!INCREMENT/ENTRY›Z Ap(‚(‚d%6…-@%OP TKNS START AT 18›n*6ƒ-%@*BEGIN AT OPNTAB Ý}ADRS+2›x!6„-@!INCREMENT/ENTRY›‚ ApŒ@–0@‚@ AP0RESET LEFT MGN› **SHOW Þ}TOKENS AND STATEMENTS/OPERATORS›ª5F:ƒ,"$5TBLS END WITH DUMMY ZERO BYTE›´(‚…-SHOW TKN #›¾^F:ƒ,A ß}(,(‚>:F:ƒ,&A(, 46ƒ-ƒ%„B6…-…%@L Ap^LAST CHR IN INV›È5(‚>:F:ƒ,,6ƒ-ƒ%@) A5 à}SHOW CHRS›€ D:TUTOR1.BASEÐTKÎPROGRAM 1› AATHIS PROGRAM DISPLAYS   %vŠVNTÂVNTÄADRÓ}PROGRAM 2› }VARIABLE NAME LISTER›}<%6€-F:A0,%AV$F:A1$â},<ADRS OF VAR NAME TBL›}:%6-F:A2,%AV$F:A3,:ADRS OF END OF VNT›(}(%(} VARIABLE NAME TABLE(($ã}2}W‚-€&@"F:‚,!A(;(>:F:‚,&A(, E B pWLAST CHR IN INV›<}#(>:F:‚,,#SHOW VAR NAME CHAR›F} $ä} ‚ (P}€ D:TUTOR2.BAS}PROGRAM 2› }VARIABLE NAME LISTER›}<%6€-F:A0,%AV$F:A1$!D}‘LNBÒHÉLÏSTMTAÂADRÓÉ}PROGRAM 3› }BASIC LINE ANALYZER›}Z(æ}(}ENTER LINE # €-6-P:€'AV,=6‚-€&$AV@(ZGET HI,LO BYTES OF LN #›}8%6ƒ-F:A6,%AV$F:A7,8(ç}ADRS OF STMT TBL›(}* 6„-ƒ*START AT BEGINNING OF STMT TBL›2}4#F:„,"‚*F:„%@,"B 4TEST EACH LN #›<}*6„-„%F:„%(è}@,*STEP TO NEXT LINE›F}\F:„%@,"A(3(LINE € NOT FOUND6\ALL DONE IF IMMED MODE LINE REACHED›P} (é} B PKEEP LOOKING›Z}N(LINE ADDRESS = „9(LINE LENGTH = F:„%@,<(NSHOW PARAMETERS›d}C …-„„%F:„%@,(ê}&@,(F:…,-0 …3(6(CTOKEN DUMP›n}2AfAU2DISPLAY CONTROL CHARS ONLY›x}W(…-„%@„%F:„%@,(ë}&@7F:…,"AU@(J B!@WASCII DUMP›‚}(>:F:…,,-SHOW CHARS›Œ}  … (–}6Af6RESTO(ì}RE CONTROL CHAR FUNCTIONS› }€ D:TUTOR3.BAS}PROGRAM 3› }BASIC LINE ANALYZER›}Z(4ˆ‰A«¾N²N1°N¸ÔN±N°AÁÙNµN¹MAÎN3²ØXØN16±SCORÅGÔGÇN´ÓX±Y±DØN·DÙN³DIÆZÚN3µN¶N16¸N16²AIÒGOLÄSCÒÖ×LEVEÌV±W±DIRØDIRÙMÍN13³GA,î}MÅN3¸ÁSEÔCHAÒÍÂÃROCKÓGAÓÚ ,ï} ,ð} !"#$%&'()*+,ñ},-./0123456d******************›n* M,ò}INER JACK *›x* BY *›‚* RANDY SCHULZE *›Œ******************›–›  A@ªJ 2€‚ƒ-„€,ó} ƒ#2€………+6†-†%„7†!@P=6†-…@'J A´ ‡ ˆ%‰…6†-…¾@w…$È Š"€ ‹,@€Ò ,ô}Š"„ ‹,@„Ü$æ 1Œ‡&„"Ž‹,Œ‡&„ð 1Œ‡"Ž‹,Œ‡ú 1Œ‡%„"Ž‹,Œ‡%„ 1Œ&„‡,õ}"Ž‹,Œ&„‡ 1Œ%„‡"Ž‹,Œ%„‡$"82€@‚6-%$%6-%„+6‘-…52€………8$,< A,ö}6Š-Š&„ A0) A/6‘-„<(ŠAP6 A0@**** MAIN LOOP ****›JA 6Œ-‰6‡-’ƒ-„@P32„@,÷}@7 ƒA2„………T 6“-R:…,6”-Œ6•-‡^“@2…@T‚„h)6–-+“"—,&+“"%„,)6˜-+“"%™,&+“"%’,r,ø} ƒ-„š ƒ| 6Œ-Œ%–6‡-‡%˜†Œ „)Œ!+%‚,6Œ-”‡ ’)‡!@"6‡-•š 2…………¤ 1Œ‡››"œ A®= ,ù}›"’6Œ-”6‡-•%2„AT/ƒ-„$€3 ƒ=2„………¸? ›"ž2„@‚‚'ƒ-„AP+ ƒ52„………? A›,ú}"ŸAÌ Ž ,Œ‡Ö“@‹,”•àF:%‰,!  ApêI¡&„*‡ ˆ6¢-¢%„6‘-„%6 - &„+6£-‰16¤-’76,û}-…?6¥-¥%„I A0ô   €6 -€þ&‘"„A@&GUARD NOT ON BOARD› 6¦-£6§-¤6¨-N:Œ&£,6©-N:‡&¤, 6£-£%¨,ü}6¤-¤%©&£!‰$€)£ €6£-¦0) 1£¤ªª"«)ª"’)ª"ž)ª"œ#6£-¦)6¤-§:ª"ŽAD Ÿ ,£¤N £¦)¤§@2,,ý}¦§X A@b¥6„-@6€-@'6™-@36’-@?6ˆ-@K6-@W6—-@c6‚-@o6‰-@ ,þ}{6-@‡6…-6-…“6-…™6¥-…Ÿ6‘-„¥6¬-„lu6Ž-Aa6Ÿ-Ab'6œ-@536«-A3?6­-@8K6ž-,ÿ}AhQ6¢-„W6Š-™]6 -c6£-‰i6¤-’u6‹-@2vVAF:A,&€$+„%+‚%‚,;6®-F:A,$AVJ6¯-F:A,V-}AV¯€ ƒ-…—®%ƒ… ƒSPACE›Š #Ap”,ƒ-‚‰$—%‚"°®%ƒ° ƒ,CHARACTERS›ž^^24,60,24,126,90,60,36,-}102,231,165,231,24,126,165,129,255,126,195,189,191,177,189,195,126›¨TT24,60,54,126,127,251,159,255,255,247,255,191,251,255,-}223,255,0,0,24,24,0,0,0,0›²==60,110,255,191,251,255,110,60,165,60,68,130,70,40,36,40›¼ #ApÆ**** PLAYFIELD SETUP-} ****›Ð**** STARS ****›Ú9 ±-„6²-H:…,$+%,%6³-H:…,$™)­5,P:²,P:³,9 ±ä**** EARTH ****›î«ø!±-ˆ$€%-}™,…±/%‰±! ±**** ROCKS ****›  A%‰…7 ±-„´6²-H:…,$+$€,+6³-H:…,$+$€%™,1³ 76³- ’-},P:²,P:³, ±***** GAS POCKETS ****›47 ±-„µ6²-H:…,$+$€,+6³-H:…,$+$€%™,1³ 76³->ž,P:²,P:³, ±H-}**** MOON ****›R @9,%—€\**** GOLD ****›f ±-„¡p=6²-H:…,$+$€,!6³-H:…,$+$€,/1P:²,P:³,="œA€-}z³ —A€„² „)²!@A€Žœ,P:²,P:³, ±˜""**** MEN LEFT INDICATOR ****›¢(¬A `¬ 6-}¬-…¶Ž,@„,@€À #A Ê "²³²"6A ™A0Ô’ ,²³ A pÞWW1,4,2,4,3,4,4,4,5,4- },6,4,7,4,8,4,10,4,11,4,12,4,13,4,14,4,15,4,16,4,17,4,18,4,-999›è**** SCREEN CHECK ****›ò! ¢"„6¡-ˆ6µ-€6´-€!6š-‰ü- }! ¢"€6¡-—6µ-™6´-’!6š-‚! ¢"™6¡-‰6µ-ˆ6´-!6š-—# ¢"’6¡-%™6µ-—6´-‚#6š-# ¢"ˆ6¡-%™6µ-‰6- }´-#6š-ˆ$% ¢"6¡-%™6µ-%„6´-ˆ%6š-’.# ¢"—6¡-$€6µ-€6´-€#6š-™8# ¢"‚6¡-ˆ6µ-%ˆ6´-—#6š-€B# ¢‰- }6¡-%™6µ-‰6´-‚#6š-„L$V #A@` "®®"AV2™……… $j# 2™®‚ƒ-„ ƒ# A tEE243,243- },243,243,243,243,230,230,230,230,243,243,243,243,243,256›~9ƒ-…@#,…ƒ#/@ƒ' ƒ9AVA$ˆ -ˆ™ (-}@ GAME OVER’ -„ˆ(@GOLD ¤œ' -€‚'(@levels completed¦ -‰‰(@¥°'-ˆ@-}'(@ ðòåóó fireº*-™@*(@ ÔÏ PLAY ÁÇÁÉÎÄ, (T:…,"AF:A,%€, AÎ A -}ØI+@%@/0@@ @I0@@@â--@@-(@ MINER JACKì---}@@-(@ CREATED BYö1-@@1(@RANDY SCHULZE&¶-@@P&6®-F:A,-} rAF:A,,ƒ-@@0 ƒEAF:A,Yƒ-@@] ƒrAF:A ,5ƒ-@-}@ ƒ'A ®+ ¶5 A€ D:MINER.BASDØN·DÙN³DIÆZÚN3µN¶N16¸N16²AIÒGOLÄSCÒÖ×LEVEÌV±W±DIRØDIRÙMÍN13³GA,>A/DÉÁSUÍCHECËLINÅLÎd##NO KEY CLICK by Doron Gartner›n›x..1}@@ D:AUTORUN.SYS‚(€-@Ae"(*@Œ €@È\\255,255,59,53,211,1}53,76,94,53,251,243,51,246,155,52,163,246,51,246,60,246,76,228,243,0›Ò]]51,246,51,246,4,52,60,246,51,246,60,246,76,228,243,1}0,162,156,189,220,246,157,255,51,202›Ü[[208,247,169,234,141,30,52,141,31,52,141,32,52,169,0,141,63,52,169,52,141,64,52,169,1}33›æaa141,137,52,169,52,141,138,52,162,159,189,61,246,157,155,52,202,208,247,169,5,141,175,52,169›ð__52,141,176,52,169,171}4,141,202,52,169,52,141,203,52,169,212,141,231,2,169,53,141,232,2,165›úSS9,9,2,133,9,169,183,133,2,169,53,133,3,169,62,141,1}33,3,169,53,141,34,3,169,78›33141,39,3,169,53,141,40,3,96,224,2,225,2,94,53›€ D:NOCLICK.BASDoron Gartner›n›x..0dþþ.dX; No more key click!nX; by Doron GartnerxX;‚X; for Atari DOS 2.0ŒX;–‡ROM.KEYÝö ˆROM.LINE>öª†KGETC25}4´†KGETCH†KGETC2¾†EGETCH†KGETC2œÈ†KGETC3†KGETC2!Ò†EGETC1†EGETCH܇NOCLICK†KGETC2æ …MEMLOçð 5}†CASINIú …BOOT? X;†KGETC2; !…BEGIN"X;,X;6SCREEN.VECTOR@ û=óJ 3=öT †EGETCH^ £=öh 5}3=ör <=ö| L=ä=ó† X;šKEYBOARD.VECTOR¤ 3=ö® 3=ö¸ †KGETCH <=öÌ 3=öÖ <=öà L=ä=5}óê ôX;þX; get kgetch out of romX; (156 bytes)X; …BEGIN$>œ&„LOOPQ‡ROM.KEY90P†KGETC29:0D H5 }„LOOPNX;XX; now, for some changesbX;lQ>ê;;put NOP'svP‡NOCLICK;;instead of€P‡NOCLICK;;JSR CLICKŠP‡NOCLICK5!}”X;žQ>4†KGETC2;;change JMP's¨P†KGETC2?;;within KGET² Q>5†KGETC2¼P†KGETC2@ÆX;Ð Q>4†KGETC3ÚP†KGETC2‰ä Q>5†5"}KGETC3îP†KGETC2ŠøX;X; get egetch out of rom X; (159 bytes)X; $>Ÿ*…LOOP2QˆROM.LINE94P†EGETCH5#}9>0H H…LOOP2RX;\X; more changes!!fX;pQ>4†KGETCH;;change JMP'szP†EGETCH;;within EGETCH„ Q>5†KGETCHŽP†EGET5$}CH˜ Q>4†EGETC1¢P†EGETCH.¬ Q>5†EGETC1¶P†EGETCH/ÀQ>4…NEWLO;;set memlo pntrÊP…MEMLO;;past handler soÔQ>5…NEWL5%}O;;BASIC won'tÞP…MEMLO;;clobber it!è Q…BOOT?òL>üP…BOOT?;;flag cas bootX;X; tell hatabs about vectorsX;$5&}…HATABQ>4…HATAB. P†CASINI8 Q>5…HATABBP†CASINILQ>4SCREEN.VECTORVP!`Q>5SCREEN.VECTORjP"tQ>4KEYBOARD.VE5'}CTOR~P'ˆQ>5KEYBOARD.VECTOR’P(œ:¦X;° …NEWLO ºX;ÄàÎ …BEGIN؇ROM.KEYÝö ˆROM.LINE>öª†KGETC24V  BïÉÁÃA¤B¤ÊØ€€ } +AR@90@9)}Q(FUNCTION KEY DRIVERk(BY STEPHEN PROKOPCHUK}ARO+F:A ,%F:A!,$AV"A†L(9*}FUNCTION ALREADY IMPLEMENTEDO-€-A6Ay"#6‚-‚%)€- €$‚Bp&!( ERROR IN DATA$W(/($9+} THIS PROGRAM WILL DEFINE CTRL 4 - 0W(#AND SHIFT+CTRL 4-0 AS PHRASES WHICH#++(#YOU MAY ENTER. THESE PHRASES CAN BE(E,(9,}$CALLED AT ANY TIME BY SIMPLY PUSHINGE(THE APPROPRIATE KEY.2ƒ;@,„;@,<€-@@Fb('(F9-}UNCTION KEY #€ - CTRL 3€ @b(>:@H%€$+€@,%@$+€@,,Kc€!@c(+ SHIFT >:@H%9.}+€&@,$+€&@@,%@$+€&@@,,P&"ƒ&(DEFAULT SETTING IS [ƒ]Z( YOUR PHRASE„d9/}4B:„,!@*(PHRASE IS TOO LONG.4 @n „46„.ƒxH…-@B:„,DA€%+€&@,$@%…&@90}@:„7…,,H …‚73A€%+€&@,$@%…&@7 €Œ((PROCESS IS COMPLETE.ª6†-?:A6,91}104,173,8,2,141,82,6,173›9,2,141,83,6,169,50,141›8,2,169,6,141,9,2,173›33,3,133,207,173,34,3,133› !!208,160,92}6,177,207,141,123,6›(##200,177,207,141,124,6,238,123›06,96,165,66,208,27,160,0›8 185,137,6,205,9,210,240,25›@9,693}4,205,9,210,240,13,200›H!!192,7,208,236,169,0,141,241›P2,76,190,255,152,24,105,7›X""168,173,241,2,208,243,152,10›`""94}10,10,24,105,144,133,203,169›h 6,133,204,160,0,177,203,56›p""233,32,133,93,177,203,240,10›x$$132,206,32,164,246,164,295}06,200›€ 16,242,169,1,141,241,2,104›ˆ$$64,152,157,155,179,181,176,178›ÐYYLOAD ",SAVE ",LIST ,RUN ,POKE ,PEEK(,DATA ,PL96}OT ,DR. ,LOC. ,POS. ,COLOR ,SE. ,GR. ,›€D:FUNCTION.BAS } +AR@90@8=;***********************›;* FUNCTION KEY DRIVER *›;*By Stephen Prokopchuk*›;*Written for THE ATARI*›;* MACRO ASSEMBLER *›=8};***********************› ORG $600›;›;SYSTEM EQUATES›;›CIO = $E456›ICCOM = $342›ICBADR = $344›ICBLEN = $3=9}48›ICAUX1 = $34A›ICAUX2 = $34B›VKEYDB = $208›KEYDEL = $2F1›KBCODE = $D209›OLDADR = $5E›OLDCHR = $=:}5D›COLCRS = $55›ROWCRS = $54›CRITIC = $42›EHADS = 801›;›;CIO HANDLER VALUES›;›COPN = 3›CCLOSE = 12=;}›CPBINR = 11›CGTXTR = 5›;›;PROGRAM EQUATES›;›KEYADR = 203›LENGTH = 205›YSAVE = 206›EPADR = 207›;›;T=<}HE PROGRAM›;›PROGRAM› PLA ;GET # PARAMETERS›ENTRY ;TO SATISFY BASIC› LDA VKEYDB ;SAVE ORIGINAL› S==}TA EXIT+1 ;INTERRUPT VECTOR› LDA VKEYDB+1› STA EXIT+2› LDA #LOW CHECK ;MOVE KEYBOARD› STA VKEYDB ;INTERRUPT TO› LD=>}A #HIGH CHECK ;POINT TO OUR› STA VKEYDB+1 ;ROUTINE› LDA EHADS› STA EPADR ;FIND EDITOR› LDA EHADS+1 ;HANDLER TABL=?}E› STA EPADR+1› LDY #6 ;FIND EDITOR "PUT"› LDA (EPADR),Y ;ROUTINE + MODIFY› STA JPRINT+1 ;PROGRAM TO JSR› INY =@} ;TO THIS ROUTINE› LDA (EPADR),Y› STA JPRINT+2› INC JPRINT+1› RTS ;RETURN›CHECK› LDA CRITIC ;IS TH=A}IS TIME› BNE EXIT ;CRITICAL I/O?› LDY #0›MLOOP› LDA KEY,Y ;CHECK IF KEY› CMP KBCODE ;PRESSED MATCHES› BEQ P=B}RCH2 ;OUR TABLE OF› ORA #$40 ;FUNCTION KEYS› CMP KBCODE ;SHIFT+CTRL?› BEQ PRCH1› INY› CPY #7› BNE MLOOP› LD=C}A #0 ;NO MATCH FOUND› STA KEYDEL ;CLEAR DEBOUNCE›EXIT ;CONTINUE WITH› JMP $FFBE ;INTERRUPT›PR=D}CH1› TYA› CLC› ADC #7› TAY›PRCH2› LDA KEYDEL ;IS THIS "BOUNCE"› BNE EXIT ;YES - EXIT› TYA ;FIND ADDRE=E}SS OF› ASL A ;PHRASE TO PRINT› ASL A ;ON SCREEN.› ASL A› CLC› ADC #$90› STA KEYADR› LDA #6› STA KEYADR+1›=F} LDY #0› LDA (KEYADR),Y ;SAVE FIRST LETTER› SEC ;OF PHRASE AS› SBC #32 ;UNDER THE CURSOR› STA OLDCHR =G} ;TO STOP ERASURE›PRLOOP› LDA (KEYADR),Y ;GET A LETTER› BEQ ADJPOS ;END OF PHRASE?› STY YSAVE ;SAVE Y REG›JPRINT=H}› JSR $F6A4 ;PRINT CHARACTER› LDY YSAVE ;RELOAD Y REG› INY› BPL PRLOOP ;DO AGAIN›ADJPOS› LDA #1 ;SE=I}T DEBOUNCE› STA KEYDEL› PLA› RTI ;AND RETURN›;›;TABLE OF FUNCTION KEY CODES›;›KEY DB 152,157,155,179,181,176,178›=J};›;TABLE OF FUNCTION KEY PHRASES›;› ORG $690› DB 'LOAD "',0› ORG $698› DB 'SAVE "',0› ORG $6A0› DB 'LIST ',0› ORG $6A8› DB 'R=K}UN ',0› ORG $6B0› DB 'POKE ',0› ORG $6B8› DB 'PEEK(',0› ORG $6C0› DB 'DATA ',0› ORG $6C8› DB 'PLOT ',0› ORG $6D0› DB 'DR. ',0=L}› ORG $6D8› DB 'LOC. ',0› ORG $6E0› DB 'POS. ',0› ORG $6E8› DB 'COLOR ',0› ORG $6F0› DB 'SE. ',0› ORG $6F8› DB 'GR. ',0› END =M}ENTRY›******************›;* FUNCTION KEY DRIVER *›;*By Stephen Prokopchuk*›;*Written for THE ATARI*›;* MACRO ASSEMBLER *›<  ØÎ$$******************************›$$* *›$$* NO-FRILLS ALTAO}ERNATE CURSOR *›$$* BY TOM HUDSON *›$$* ANALOG COMPUTING *›$$* *›AP}$$******************************› [€-AVAd"!€% €7@I@@[@ @AQ})&(}PRESS ÒÅÓÅÔ TO INSTALL CURSOR)èUU169,1,133,13,169,0,133,12,169,0,141,7,212,169,1,141,111,2,162,1,160,40,169,7,3AR}2›òVV92,228,169,58,141,47,2,169,2,141,29,208,96,0,0,216,169,1,141,240,2,169,58,141,47›üVV2,169,0,170,157,0,6,202,208,250,AS}165,85,10,10,24,105,48,141,2,208,165,84,10,10,10›VV24,105,39,168,169,240,153,0,6,238,109,1,173,109,1,74,74,74,41,1,208,4,1AT}69,15,208›!!2,169,0,141,194,2,76,98,228›€ D:CASSCUR.BAS****›$$* *›$$* NO-FRILLS ALT@@#$| ) A¤X¤L¤ÎÉØP¤B0¤N¤Z¹Ù<( ((@@dÌö"(ô EV} +AdAU0@@70@@Q0@@c@‚@EW}u@ƒ@7{(}AR@++(#++(#| ANALOG DISK #25 DEC. '84 EX} |++(#++(# @ „-@AEY} „$ GG;@@,‚;@ ,€;@@,†;A,ˆ;@,‡;@@, "D1:MENU"› &&@@EZ}D:*.* 6,6‡." 6 @0i6ƒ-ƒ%@(6.€7@<@,A67@ <@ ,.E[}.i67@<@,.€7@<@,3 6‚.|6‚7B:‚,%@,.36†7B:†,%@,.G6‚7@<@,.(-„-E\}@B:‚,:‚7„<„,4 G6‚7„<„,..] „6ˆ.=:ƒ,ƒ @D6ˆ7@<@,.ˆ7@<@,]6ˆ7@<@E]},.0$@€(''€7@<@,4FREE@- @ 2(‚ˆ) <@€F''€7@E^}<@,4FREE@‡K @ P(‚7@<@,ˆ)|U @0W'!-@6+ƒ'@,%@' |Z+E_}+(#| |[ ( | € |\++(#d-(-("E`} Select HELP.BAS for information.xAR‚[@ƒ@9'-@@"C(œ SELECTIONM Ea}A0Q…[ Bƒ…P:…,A0‡0…"@&6.†7@<@,0 AEŒLB6.†7+…&@,$@%@Eb}<+…&@,$@%@,L B37@<@,4 36.7@<@,‘!7@<@,4DOS!.Ec}’0 6€.„-@B:,07„<„,4 AH“6€7B:€,%@,.7„<„,”  „ 6.€–! 6€.D1:!6€7B:€,%@,.›?Ed}AR@'-@@"? œ LOADING  ? A@ƒ@91@‚@5%€? BÈEe}K-@@"- œ CANNOT RUN 7 @A BK A0€D:MENUCASSCUR .BASc Dgÿÿ…¢½ÉEðèèèÐôèŽi½…Í©kè½…Ω ¢±Í™kÈÊÐ÷©Co©p© j`¬jð ¹{Îj `ŠH®i¥Íè¥Îhª©› `Ig}L"UNEM:D"NURÿÿâã½…Í©kè½…Ω ¢±Í™kÈÊÐ÷©Co©p© j`¬jð ¹{Îj `ŠH®i¥Íè¥Îhª©› `HÃ_ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿB'DOS SYSB&+WEATHER BASB2QRACER BASBFƒANDROTONBASBÉBOOTADD ASMBÐBOOTADD BASBÓBOOTRANDASMBÖBOOTRANDBASB ØTUTOR1 BASBáTUTOR2 BASBåTUTOR3 BASB'íMINER BASBNOCLICK BASB NOCLICK ASMB(FUNCTIONBASB7FUNCTIONASMBNCASSCUR BASBUMENU BfAUTORUN SYS